COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DEFUN CHECK ()
C00003 ENDMK
C⊗;
(DEFUN CHECK ()
 (setq base 10. ibase 10.)
 (TERPRI)
 (princ '|Give initial value, then after each/
colon (:) type the amount of the check. If you want/
a deposit, type a negative number, such as -50 for a/
$50 deposit. Type 0 to stop the program.|)
(terpri)(terpri)
 (PRINC '|Initial Value = |)
 ((LAMBDA (Y)
   (DO ((X (PROGN (PRINC '|: |)(times 100. (read)))
	   (progn (princ '|: |)(times 100. (read))))
        (Y Y Y))
       ((= X 0) (princ '|Total = |)(princ (quotient y 100.))(valret))
       (setq y (difference y x))  
       (princ '|= |)(princ (quotient y 100.))(terpri)))
  (times 100. (read)))  )